Begin Window "frmMain"	title = "Controls Demonstration"	height = 300	width = 300	maxwidth = 500	maxheight = 500	frame = 1	visible = true	Begin Canvas "mycanvas"            left = 12            top = 12            height = 276            width = 276	End canvas	End Windowevent sub frmMain_open()	//me.title = "Canvas Test"end subevent sub mycanvas_paint()	me.mycanvas.graphics.forecolor = &c0000FF	me.mycanvas.graphics.drawrect(10, 10, 32, 32)	beepend sub